home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / AGSNIB10.ZIP / NIB.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-09-07  |  21.0 KB  |  1,257 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  TBOOLEAN001(1)
  20.     Boolean  TBOOLEAN002(1)
  21.     Boolean  TBOOLEAN003(1)
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  TBOOLEAN007(1)
  26.     DWord    DWORD001
  27.     DWord    DWORD002
  28.     Integer  TINTEGER001(1)
  29.     Integer  INTEGER002
  30.     Integer  INTEGER003
  31.     String   TSTRING001(14)
  32.     String   STRING002
  33.     String   STRING003
  34.     String   STRING004
  35.     String   TSTRING005(1)
  36.     String   STRING006
  37.     String   STRING007
  38.     String   STRING008
  39.     String   STRING009
  40.     String   STRING010
  41.     String   STRING012
  42.     String   TSTRING014(2)
  43.     String   TSTRING016(2)
  44.     String   STRING024
  45.     Byte     TBYTE001(1,1,255)
  46.     Int      TINT001(1,1)
  47.     Int      TINT002(1)
  48.     Int      TINT003(1)
  49.     Int      TINT004(1)
  50.     Int      TINT005(1)
  51.     Int      TINT006(1)
  52.     Int      TINT007(1)
  53.     Int      INT008
  54.     Int      INT009
  55.     Int      INT010
  56.     Int      INT011
  57.     Int      INT012
  58.     Int      INT013
  59.     Int      INT014
  60.     Int      INT015
  61.     Int      INT016
  62.     Int      INT017
  63.     Int      INT018
  64.     Int      INT019
  65.     Int      INT020
  66.     Int      INT021
  67.     Int      INT022
  68.     Int      INT026
  69.     Int      INT027
  70.     Int      INT028
  71.     Int      INT030
  72.     Int      INT032
  73.     Int      INT033
  74.     Int      INT034
  75.     Int      INT035
  76.     Int      INT037
  77.     Int      INT038
  78.     Int      INT045
  79.     Int      INT046
  80.     Int      INT047
  81.     Int      INT048
  82.     Int      INT050
  83.     Declare  Function FUNCTION001() DWord
  84.     Declare  Function FUNCTION002(String STRING013, Int INT042, Int INT043, Int INT044) Integer
  85.     Declare  Procedure PROC001()
  86.     Declare  Procedure PROC003(Int INT029)
  87.     Declare  Procedure PROC004(Int INT031)
  88.     Declare  Procedure PROC005()
  89.     Declare  Procedure PROC006(Int INT036)
  90.     Declare  Procedure PROC007(Int INT039, Int INT040, Int INT041)
  91.     Declare  Procedure PROC008()
  92.     Declare  Procedure PROC009(Integer INTEGER004)
  93.     Declare  Procedure PROC010(Integer INTEGER005)
  94.     Declare  Procedure PROC011()
  95.     Declare  Procedure PROC012()
  96.     Declare  Procedure PROC013(String STRING015)
  97.     Declare  Procedure PROC014(Integer INTEGER006, Integer INTEGER007)
  98.     Declare  Procedure PROC015(Int INT049, String STRING017, String STRING018, String STRING019, String STRING020, String STRING021, String STRING022, Boolean BOOLEAN008, String STRING023)
  99.  
  100. ;------------------------------------------------------------------------------
  101.  
  102.     FOpen 1, PPEPath() + "NIBBLES.CFG", 0, 0
  103.     FGet 1, STRING003
  104.     Tokenize STRING003
  105.     If ((Time() >= ToTime(GetToken())) && (Time() <= ToTime(GetToken()))) BOOLEAN006 = 1
  106.     For INT013 = 1 To 14
  107.         FGet 1, TSTRING001(INT013)
  108.     Next
  109.     FGet 1, STRING007
  110.     FGet 1, INT017
  111.     FGet 1, INT018
  112.     FGet 1, TINT006(0)
  113.     FGet 1, TINT006(1)
  114.     FGet 1, INT019
  115.     FGet 1, INT020
  116.     FGet 1, INT021
  117.     FGet 1, STRING008
  118.     FGet 1, STRING009
  119.     FGet 1, INT022
  120.     FGet 1, STRING010
  121.     FClose 1
  122.     INT013 = FUNCTION002("PLAYERS", 10, 2, 1)
  123.     If (INT013 == 0) PROC008()
  124.     INT010 = INT013
  125.     If (INT010 == 2) Then
  126.         TSTRING005(0) = STRING010
  127.         TSTRING005(1) = PCBMac("@USER@")
  128.     Else
  129.         TSTRING005(0) = PCBMac("@USER@")
  130.     Endif
  131.     INT012 = 1
  132.     TINT007(0) = 3
  133.     TINT007(1) = 3
  134.     INT013 = FUNCTION002("LEVEL", 5, 14, INT022)
  135.     If (INT013 == 0) PROC008()
  136.     INT016 = INT013
  137.     INT009 = 14 - INT013
  138.     If (INT010 == 2) Then
  139.         Color 15
  140.         Cls
  141.         StartDisp 1
  142.         DispFile PPEPath() + "PAGING", 1 + 4
  143.         STRING003 = "User : " + Trim(U_Name(), " ") + ", Level : " + TSTRING001(INT016)
  144.         AnsiPos 40 - Len(STRING003) / 2, 15
  145.         Color 15
  146.         SPrint STRING003
  147.         AnsiPos 1, 11
  148.         For INT013 = 1 To 79
  149.             STRING002 = KInkey()
  150.             If (STRING002 == " ") Goto LABEL001
  151.             If (STRING002 == "") Break
  152.             STRING002 = MInkey()
  153.             If (STRING002 == "") PROC008()
  154.             AnsiPos INT013, 11
  155.             Print "@X07▒"
  156.             Delay 1
  157.             If (BOOLEAN006) Then
  158.                 If (ToReal(INT013) / 2 == INT013 / 2) Then
  159.                     Sound 2000
  160.                     Delay 1
  161.                     Sound 5000
  162.                     Delay 1
  163.                     Sound 0
  164.                 Endif
  165.                 Continue
  166.             Endif
  167.             Color 15
  168.             AnsiPos 1, 16
  169.             For INT014 = 1 To 6
  170.                 SPrintLn "███████████████████████████████████████████████████████████████████████████████"
  171.             Next
  172.             AnsiPos INT013 + 1, 11
  173.             Delay 2
  174.             AnsiPos 1, 16
  175.             For INT014 = 1 To 6
  176.                 SPrintLn "                                                                               "
  177.             Next
  178.         Next
  179.         Color 15
  180.         Cls
  181.         StartDisp 1
  182.         DispFile PPEPath() + "BUSY", 1 + 4
  183.         Wait
  184.         PROC008()
  185.         :LABEL001
  186.         Color 15
  187.         Cls
  188.         StartDisp 1
  189.         DispFile PPEPath() + "SYSOPOK", 1 + 4
  190.         Delay 30
  191.     Endif
  192.     DWORD001 = FUNCTION001()
  193.     While (DWORD001 == FUNCTION001()) Do
  194.     EndWhile
  195.     DWORD001 = FUNCTION001()
  196.     While (FUNCTION001() < DWORD001 + 4) Do
  197.         Inc INTEGER002
  198.     EndWhile
  199.     INTEGER002 = INTEGER002 / 4
  200.     StartDisp 1
  201.     PROC003(INT012)
  202.     :LABEL002
  203.     PROC014(0, 0)
  204.     If (INT010 == 2) PROC014(1, 0)
  205.     PROC012()
  206.     While (1) Do
  207.         PROC004(INT009)
  208.         PROC001()
  209.         If (BOOLEAN005) Then
  210.             PROC005()
  211.             BOOLEAN005 = 0
  212.         Endif
  213.         If (BOOLEAN004) Then
  214.             AnsiPos 1, 1
  215.             If (TBOOLEAN002(0) && !TBOOLEAN002(1)) Then
  216.                 If (INT010 == 2) Then
  217.                     PROC013("Level complete by " + TSTRING005(0))
  218.                     Goto LABEL003
  219.                 Endif
  220.                 PROC013("Level complete!")
  221.                 :LABEL003
  222.                 PROC014(0, 1000 * (INT012 * 5))
  223.                 Goto LABEL004
  224.             Endif
  225.             If (!TBOOLEAN002(0) && TBOOLEAN002(1)) Then
  226.                 PROC013("Level complete by " + TSTRING005(1))
  227.                 PROC014(1, 1000 * (INT012 * 5))
  228.                 Goto LABEL004
  229.             Endif
  230.             If (TBOOLEAN002(0) && TBOOLEAN002(1)) Then
  231.                 PROC013("Level complete by both players!")
  232.                 PROC014(1, 1000 * (INT012 * 5))
  233.                 PROC014(0, 1000 * (INT012 * 5))
  234.             Endif
  235.             :LABEL004
  236.             If (!TBOOLEAN001(0) && TBOOLEAN001(1)) Then
  237.                 Dec TINT007(0)
  238.                 If (TINT007(0)) Then
  239.                     If (INT010 == 2) Then
  240.                         If (TINT007(0) > 1) Then
  241.                             PROC013(TSTRING005(0) + " crashed! " + String(TINT007(0)) + " lives left...")
  242.                             Goto LABEL005
  243.                         Endif
  244.                         PROC013(TSTRING005(0) + " crashed! " + String(TINT007(0)) + " life left...")
  245.                         :LABEL005
  246.                         Goto LABEL006
  247.                     Endif
  248.                     If (TINT007(0) > 1) Then
  249.                         PROC013("You crashed! " + String(TINT007(0)) + " lives left...")
  250.                         Goto LABEL006
  251.                     Endif
  252.                     PROC013("You crashed! " + String(TINT007(0)) + " life left...")
  253.                     :LABEL006
  254.                     PROC003(INT012)
  255.                     Goto LABEL002
  256.                     Goto LABEL008
  257.                 Endif
  258.                 If (INT010 == 2) Then
  259.                     PROC013(TSTRING005(0) + " crashed! Game over...")
  260.                     Goto LABEL007
  261.                 Endif
  262.                 PROC013("You crashed! Game over...")
  263.                 :LABEL007
  264.                 Goto LABEL011
  265.             Endif
  266.             :LABEL008
  267.             If (!TBOOLEAN001(1) && TBOOLEAN001(0)) Then
  268.                 Dec TINT007(1)
  269.                 If (TINT007(1)) Then
  270.                     If (TINT007(1) > 1) Then
  271.                         PROC013(TSTRING005(1) + " crashed! " + String(TINT007(1)) + " lives left...")
  272.                         Goto LABEL009
  273.                     Endif
  274.                     PROC013(TSTRING005(1) + " crashed! " + String(TINT007(1)) + " life left...")
  275.                     :LABEL009
  276.                     PROC003(INT012)
  277.                     Goto LABEL002
  278.                     Goto LABEL010
  279.                 Endif
  280.                 PROC013(TSTRING005(1) + " crashed! Game over...")
  281.                 Goto LABEL011
  282.             Endif
  283.             :LABEL010
  284.             If (TBOOLEAN002(0) || TBOOLEAN002(1)) Then
  285.                 Inc INT012
  286.                 PROC003(INT012)
  287.                 Goto LABEL002
  288.             Endif
  289.             End
  290.         Endif
  291.         For INT008 = 0 To INT010 - 1
  292.             If (INT010 == 2) Then
  293.                 If (INT008 == 0) Then
  294.                     If (!TBOOLEAN003(INT008)) STRING002 = KInkey()
  295.                 Else
  296.                     If (!TBOOLEAN003(INT008)) STRING002 = MInkey()
  297.                 Endif
  298.             Else
  299.                 If (!TBOOLEAN003(INT008)) STRING002 = Inkey()
  300.             Endif
  301.             If (STRING002 == "") Continue
  302.             If ((((STRING002 == "UP") || (STRING002 == "8")) || (STRING002 == "Z")) || (STRING002 == "z")) Then
  303.                 If (TINT002(INT008) <> 3) TINT002(INT008) = 1
  304.                 TBOOLEAN003(INT008) = 1
  305.                 Continue
  306.             Endif
  307.             If ((((STRING002 == "RIGHT") || (STRING002 == "6")) || (STRING002 == "D")) || (STRING002 == "d")) Then
  308.                 If (TINT002(INT008) <> 4) TINT002(INT008) = 2
  309.                 TBOOLEAN003(INT008) = 1
  310.                 Continue
  311.             Endif
  312.             If (((((STRING002 == "DOWN") || (STRING002 == "2")) || (STRING002 == "5")) || (STRING002 == "S")) || (STRING002 == "s")) Then
  313.                 If (TINT002(INT008) <> 1) TINT002(INT008) = 3
  314.                 TBOOLEAN003(INT008) = 1
  315.                 Continue
  316.             Endif
  317.             If ((((STRING002 == "LEFT") || (STRING002 == "4")) || (STRING002 == "Q")) || (STRING002 == "q")) Then
  318.                 If (TINT002(INT008) <> 2) TINT002(INT008) = 4
  319.                 TBOOLEAN003(INT008) = 1
  320.             Endif
  321.         Next
  322.     EndWhile
  323.     Goto LABEL012
  324.     :LABEL011
  325.     If (INT010 == 1) Then
  326.         PROC015(0, "BLT1.DAT", "BLT1_1.", "BLT1_2.", "BLT1.PCB", "INTOP.1", "BEST.1", 1, U_Name())
  327.     Else
  328.         PROC015(0, "BLT2.DAT", "BLT2_1.", "BLT2_2.", "BLT2.PCB", "INTOP1.2", "BEST1.2", 0, STRING010)
  329.         PROC015(1, "BLT2.DAT", "BLT2_1.", "BLT2_2.", "BLT2.PCB", "INTOP2.2", "BEST2.2", 1, U_Name())
  330.     Endif
  331.     PROC008()
  332.     :LABEL012
  333.     End
  334.  
  335. ;------------------------------------------------------------------------------
  336.  
  337.     Procedure PROC001()
  338.  
  339.     Int      INT023
  340.     Int      INT024
  341.     Int      INT025
  342.     String   STRING011
  343.     Real     REAL001
  344.  
  345.     For INT023 = 0 To INT010 - 1
  346.         TBOOLEAN003(INT023) = 0
  347.         PROC014(INT023, -1 * INT012)
  348.         Select Case (TINT002(INT023))
  349.             Case 1
  350.                 Dec TINT001(INT023, 1)
  351.             Case 2
  352.                 Inc TINT001(INT023, 0)
  353.             Case 3
  354.                 Inc TINT001(INT023, 1)
  355.             Case 4
  356.                 Dec TINT001(INT023, 0)
  357.         End Select
  358.         TBYTE001(INT023, 0, TINT005(INT023)) = TINT001(INT023, 0)
  359.         TBYTE001(INT023, 1, TINT005(INT023)) = TINT001(INT023, 1)
  360.         REAL001 = TINT001(INT023, 1)
  361.         STRING003 = ScrText(TINT001(INT023, 0), TINT001(INT023, 1) / 2, 1, 0)
  362.         If ((Asc(STRING003) >= 49) && (Asc(STRING003) <= 57)) Then
  363.             PROC014(INT023, 10 * (INT012 * 5 + Asc(STRING003) * 5))
  364.             If (INT011 == 10) Then
  365.                 BOOLEAN004 = 1
  366.                 TBOOLEAN002(INT023) = 1
  367.             Endif
  368.             TINT004(INT023) = TINT004(INT023) + (S2I(STRING003, 10) + 1) * 2
  369.             If (TINT004(INT023) > 250) TINT004(INT023) = 250
  370.             PROC006(INT011)
  371.             Inc INT011
  372.         Endif
  373.         STRING011 = ScrText(TINT001(INT023, 0), TINT001(INT023, 1) / 2, 1, 1)
  374.         INT024 = S2I(Mid(STRING011, 3, 1), 16)
  375.         INT025 = S2I(Mid(STRING011, 4, 1), 16)
  376.         STRING011 = Right(STRING011, 1)
  377.         AnsiPos TINT001(INT023, 0), TINT001(INT023, 1) / 2
  378.         If (STRING003 == "■") Then
  379.             TINT004(INT023) = TINT004(INT023) + 20
  380.             If (TINT004(INT023) > 250) TINT004(INT023) = 250
  381.             BOOLEAN005 = 1
  382.         Endif
  383.         If (InStr(String(REAL001 / 2), ".") || InStr(String(REAL001 / 2), ",")) Then
  384.             If (((STRING003 == "█") || (STRING003 == "▄")) || ((STRING003 == "▀") && (INT024 <> INT017))) Goto LABEL016
  385.             If (STRING003 == "▀") Then
  386.                 If (INT025 <> And(TINT006(INT023), 15)) Then
  387.                     Color INT025 * 16 - 128 + And(TINT006(INT023), 15)
  388.                     Print "▄"
  389.                 Else
  390.                     Color TINT006(INT023)
  391.                     Print "█"
  392.                 Endif
  393.             Else
  394.                 Color TINT006(INT023)
  395.                 Print "▄"
  396.             Endif
  397.         Else
  398.             If (((STRING003 == "█") || (STRING003 == "▀")) || ((STRING003 == "▄") && (INT024 <> INT017))) Goto LABEL016
  399.             If (STRING003 == "▄") Then
  400.                 If (INT025 <> And(TINT006(INT023), 15)) Then
  401.                     Color INT025 * 16 - 128 + And(TINT006(INT023), 15)
  402.                     Print "▀"
  403.                 Else
  404.                     Color TINT006(INT023)
  405.                     Print "█"
  406.                 Endif
  407.             Else
  408.                 Color TINT006(INT023)
  409.                 Print "▀"
  410.             Endif
  411.         Endif
  412.         Inc TINT005(INT023)
  413.         Inc TINT003(INT023)
  414.         TINT005(INT023) = TINT005(INT023) % 256
  415.         If (TINT003(INT023) > TINT004(INT023)) Then
  416.             Dec TINT003(INT023)
  417.             REAL001 = ToInt(TINT005(INT023)) - TINT004(INT023) - 1
  418.             If (REAL001 < 0) Then
  419.                 REAL001 = 256 + REAL001
  420.             Endif
  421.             STRING011 = ScrText(TBYTE001(INT023, 0, REAL001), TBYTE001(INT023, 1, REAL001) / 2, 1, 1)
  422.             INT024 = S2I(Mid(STRING011, 3, 1), 16)
  423.             INT025 = S2I(Mid(STRING011, 4, 1), 16)
  424.             STRING011 = Right(STRING011, 1)
  425.             AnsiPos TBYTE001(INT023, 0, REAL001), TBYTE001(INT023, 1, REAL001) / 2
  426.             STRING003 = ScrText(TBYTE001(INT023, 0, REAL001), TBYTE001(INT023, 1, REAL001) / 2, 1, 0)
  427.             REAL001 = TBYTE001(INT023, 1, REAL001)
  428.             If (INT024 <> INT017) Then
  429.                 Color INT017 * 16 + INT024 + 8
  430.                 If (InStr(String(REAL001 / 2), ".") || InStr(String(REAL001 / 2), ",")) Then
  431.                     Print "▀"
  432.                     Goto LABEL013
  433.                 Endif
  434.                 Print "▄"
  435.                 :LABEL013
  436.                 Goto LABEL015
  437.             Endif
  438.             Color TINT006(INT023)
  439.             If (InStr(String(REAL001 / 2), ".") || InStr(String(REAL001 / 2), ",")) Then
  440.                 If (STRING003 == "█") Then
  441.                     Print "▀"
  442.                     Goto LABEL014
  443.                 Endif
  444.                 Print " "
  445.                 :LABEL014
  446.                 Goto LABEL015
  447.             Endif
  448.             If (STRING003 == "█") Then
  449.                 Print "▄"
  450.                 Goto LABEL015
  451.             Endif
  452.             Print " "
  453.         Endif
  454.         :LABEL015
  455.         Continue
  456.         :LABEL016
  457.         TBOOLEAN001(INT023) = 0
  458.         BOOLEAN004 = 1
  459.     Next
  460.  
  461.     EndProc
  462.  
  463.  
  464. ;------------------------------------------------------------------------------
  465.  
  466.     Function FUNCTION001() DWord
  467.  
  468.     FUNCTION001 = PeekDW(MkAddr(64, 108))
  469.  
  470.     EndFunc
  471.  
  472.     INT026 = GetX()
  473.     INT027 = GetY()
  474.     INT028 = CurColor()
  475.     AnsiPos 1, 1
  476.     Print "@X0F" + "", "      "
  477.     AnsiPos INT026, INT027
  478.     Color INT028
  479.  
  480.     EndProc
  481.  
  482.  
  483. ;------------------------------------------------------------------------------
  484.  
  485.     Procedure PROC003(Int INT029)
  486.  
  487.     Int      INT030
  488.  
  489.     Color 15
  490.     Cls
  491.     AnsiPos 1, 1
  492.     Color INT017 * 16 + INT018
  493.     PrintLn "█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  494.     For INT030 = 1 To 20
  495.         PrintLn "█                                                                            █"
  496.     Next
  497.     PrintLn "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  498.     AnsiPos 36, 23
  499.     Print STRING008 + "LEVEL " + String(INT012)
  500.     TBOOLEAN001(0) = 1
  501.     TBOOLEAN001(1) = 1
  502.     TBOOLEAN002(0) = 0
  503.     TBOOLEAN002(1) = 0
  504.     BOOLEAN004 = 0
  505.     INT011 = 2
  506.     TINT004(0) = 5
  507.     TINT004(1) = 5
  508.     TINT005(0) = 0
  509.     TINT005(1) = 0
  510.     TINT003(0) = 0
  511.     TINT003(1) = 0
  512.     TBOOLEAN003(0) = 0
  513.     TBOOLEAN003(1) = 0
  514.     BOOLEAN005 = 0
  515.     Select Case (INT029)
  516.         Case 1
  517.             TINT001(0, 0) = 45
  518.             TINT001(0, 1) = 25
  519.             TINT002(0) = 2
  520.             TINT001(1, 0) = 34
  521.             TINT001(1, 1) = 25
  522.             TINT002(1) = 4
  523.             For INT030 = 1 To 2
  524.                 PROC005()
  525.             Next
  526.             PROC006(INT011 - 1)
  527.         Case 2
  528.             For INT030 = 20 To 60
  529.                 PROC007(25, INT030, INT017 * 16 + INT019)
  530.             Next
  531.             For INT030 = 1 To 4
  532.                 PROC005()
  533.             Next
  534.             PROC006(INT011 - 1)
  535.             TINT001(0, 0) = 45
  536.             TINT001(0, 1) = 23
  537.             TINT002(0) = 2
  538.             TINT001(1, 0) = 34
  539.             TINT001(1, 1) = 27
  540.             TINT002(1) = 4
  541.         Case 3
  542.             For INT030 = 9 To 39
  543.                 PROC007(INT030, 19, INT017 * 16 + INT019)
  544.                 PROC007(INT030, 59, INT017 * 16 + INT019)
  545.             Next
  546.             For INT030 = 1 To 6
  547.                 PROC005()
  548.             Next
  549.             PROC006(INT011 - 1)
  550.             TINT001(0, 0) = 45
  551.             TINT001(0, 1) = 24
  552.             TINT002(0) = 1
  553.             TINT001(1, 0) = 34
  554.             TINT001(1, 1) = 23
  555.             TINT002(1) = 3
  556.         Case 4
  557.             For INT030 = 4 To 25
  558.                 PROC007(INT030, 19, INT017 * 16 + INT019)
  559.                 PROC007(47 - INT030, 60, INT017 * 16 + INT019)
  560.             Next
  561.             For INT030 = 3 To 40
  562.                 PROC007(35, INT030, INT017 * 16 + INT019)
  563.                 PROC007(12, 79 - INT030, INT017 * 16 + INT019)
  564.             Next
  565.             For INT030 = 1 To 6
  566.                 PROC005()
  567.             Next
  568.             PROC006(INT011 - 1)
  569.             TINT001(0, 0) = 45
  570.             TINT001(0, 1) = 24
  571.             TINT002(0) = 2
  572.             TINT001(1, 0) = 34
  573.             TINT001(1, 1) = 23
  574.             TINT002(1) = 4
  575.         Case 5
  576.             For INT030 = 12 To 36
  577.                 PROC007(INT030, 20, INT017 * 16 + INT019)
  578.                 PROC007(INT030, 59, INT017 * 16 + INT019)
  579.             Next
  580.             For INT030 = 23 To 56
  581.                 PROC007(9, INT030, INT017 * 16 + INT019)
  582.                 PROC007(39, INT030, INT017 * 16 + INT019)
  583.             Next
  584.             For INT030 = 1 To 8
  585.                 PROC005()
  586.             Next
  587.             PROC006(INT011 - 1)
  588.             TINT001(0, 0) = 45
  589.             TINT001(0, 1) = 23
  590.             TINT002(0) = 2
  591.             TINT001(1, 0) = 34
  592.             TINT001(1, 1) = 23
  593.             TINT002(1) = 4
  594.         Case 6
  595.             For INT030 = 4 To 43
  596.                 If ((INT030 > 26) || (INT030 < 20)) Then
  597.                     PROC007(INT030, 10, INT017 * 16 + INT019)
  598.                     PROC007(INT030, 20, INT017 * 16 + INT019)
  599.                     PROC007(INT030, 30, INT017 * 16 + INT019)
  600.                     PROC007(INT030, 40, INT017 * 16 + INT019)
  601.                     PROC007(INT030, 50, INT017 * 16 + INT019)
  602.                     PROC007(INT030, 60, INT017 * 16 + INT019)
  603.                     PROC007(INT030, 70, INT017 * 16 + INT019)
  604.                 Endif
  605.             Next
  606.             For INT030 = 1 To 8
  607.                 PROC005()
  608.             Next
  609.             PROC006(INT011 - 1)
  610.             TINT001(0, 0) = 45
  611.             TINT001(0, 1) = 23
  612.             TINT002(0) = 2
  613.             TINT001(1, 0) = 34
  614.             TINT001(1, 1) = 23
  615.             TINT002(1) = 4
  616.         Case 7
  617.             For INT030 = 4 To 24 Step 2
  618.                 PROC007(INT030, 39, INT017 * 16 + INT019)
  619.             Next
  620.             For INT030 = 25 To 43 Step 2
  621.                 PROC007(INT030, 39, INT017 * 16 + INT019)
  622.             Next
  623.             For INT030 = 1 To 8
  624.                 PROC005()
  625.             Next
  626.             PROC006(INT011 - 1)
  627.             TINT001(0, 0) = 45
  628.             TINT001(0, 1) = 23
  629.             TINT002(0) = 2
  630.             TINT001(1, 0) = 34
  631.             TINT001(1, 1) = 23
  632.             TINT002(1) = 4
  633.         Case 8
  634.             For INT030 = 4 To 35
  635.                 PROC007(INT030, 9, INT017 * 16 + INT019)
  636.                 PROC007(47 - INT030, 19, INT017 * 16 + INT019)
  637.                 PROC007(INT030, 29, INT017 * 16 + INT019)
  638.                 PROC007(47 - INT030, 39, INT017 * 16 + INT019)
  639.                 PROC007(INT030, 49, INT017 * 16 + INT019)
  640.                 PROC007(47 - INT030, 59, INT017 * 16 + INT019)
  641.                 PROC007(INT030, 70, INT017 * 16 + INT019)
  642.             Next
  643.             For INT030 = 1 To 8
  644.                 PROC005()
  645.             Next
  646.             PROC006(INT011 - 1)
  647.             TINT001(0, 0) = 45
  648.             TINT001(0, 1) = 23
  649.             TINT002(0) = 1
  650.             TINT001(1, 0) = 33
  651.             TINT001(1, 1) = 24
  652.             TINT002(1) = 3
  653.         Case 9
  654.             For INT030 = 6 To 41
  655.                 PROC007(INT030, INT030 + 2, INT017 * 16 + INT019)
  656.                 PROC007(INT030, INT030 + 30, INT017 * 16 + INT019)
  657.             Next
  658.             For INT030 = 1 To 8
  659.                 PROC005()
  660.             Next
  661.             PROC006(INT011 - 1)
  662.             TINT001(0, 0) = 46
  663.             TINT001(0, 1) = 10
  664.             TINT002(0) = 2
  665.             TINT001(1, 0) = 33
  666.             TINT001(1, 1) = 40
  667.             TINT002(1) = 4
  668.         Case Else
  669.             For INT030 = 4 To 43 Step 2
  670.                 PROC007(INT030, 9, INT017 * 16 + INT019)
  671.                 PROC007(INT030 + 1, 19, INT017 * 16 + INT019)
  672.                 PROC007(INT030, 29, INT017 * 16 + INT019)
  673.                 PROC007(INT030, 50, INT017 * 16 + INT019)
  674.                 PROC007(INT030 + 1, 60, INT017 * 16 + INT019)
  675.                 PROC007(INT030, 70, INT017 * 16 + INT019)
  676.             Next
  677.             For INT030 = 1 To 12
  678.                 PROC005()
  679.             Next
  680.             PROC006(INT011 - 1)
  681.             TINT001(0, 0) = 75
  682.             TINT001(0, 1) = 5
  683.             TINT002(0) = 3
  684.             TINT001(1, 0) = 5
  685.             TINT001(1, 1) = 42
  686.             TINT002(1) = 1
  687.     End Select
  688.  
  689.     EndProc
  690.  
  691.  
  692. ;------------------------------------------------------------------------------
  693.  
  694.     Procedure PROC004(Int INT031)
  695.  
  696.     Int      INT032
  697.     Int      INT033
  698.  
  699.     INT033 = (INTEGER002 / 10) * INT031
  700.     For INT032 = 1 To INT033
  701.     Next
  702.  
  703.     EndProc
  704.  
  705.  
  706. ;------------------------------------------------------------------------------
  707.  
  708.     Procedure PROC005()
  709.  
  710.     Int      INT034
  711.     Int      INT035
  712.  
  713.     While (1) Do
  714.         INT034 = Random(78)
  715.         INT035 = Random(22)
  716.         If (ScrText(INT034, INT035, 1, 0) == " ") Break
  717.     EndWhile
  718.     AnsiPos INT034, INT035
  719.     Color INT017 * 16 + INT020
  720.     Print "■"
  721.  
  722.     EndProc
  723.  
  724.  
  725. ;------------------------------------------------------------------------------
  726.  
  727.     Procedure PROC006(Int INT036)
  728.  
  729.     Int      INT037
  730.     Int      INT038
  731.  
  732.     If (INT036 > 9) Goto LABEL017
  733.     While (1) Do
  734.         INT037 = Random(76) + 1
  735.         INT038 = Random(21) + 1
  736.         If (ScrText(INT037, INT038, 1, 0) == " ") Break
  737.     EndWhile
  738.     AnsiPos INT037, INT038
  739.     Color INT017 * 16 + INT021
  740.     Print String(INT036)
  741.     :LABEL017
  742.  
  743.     EndProc
  744.  
  745.  
  746. ;------------------------------------------------------------------------------
  747.  
  748.     Procedure PROC007(Int INT039, Int INT040, Int INT041)
  749.  
  750.     String   STRING012
  751.  
  752.     AnsiPos INT040, INT039 / 2
  753.     Color INT041
  754.     STRING012 = ScrText(INT040, INT039 / 2, 1, 0)
  755.     If (InStr(String(ToReal(INT039) / 2), ",") || InStr(String(ToReal(INT039) / 2), ".")) Then
  756.         If (STRING012 == "▀") Then
  757.             Print "█"
  758.         Else
  759.             Print "▄"
  760.         Endif
  761.     ElseIf (STRING012 == "▄") Then
  762.         Print "█"
  763.     Else
  764.         Print "▀"
  765.     Endif
  766.  
  767.     EndProc
  768.  
  769.  
  770. ;------------------------------------------------------------------------------
  771.  
  772.     Procedure PROC008()
  773.  
  774.     Color 15
  775.     Cls
  776.     AnsiPos 28, 11
  777.     Color 8
  778.     Gosub LABEL019
  779.     Color 7
  780.     Gosub LABEL019
  781.     Color 15
  782.     Gosub LABEL019
  783.     Color 7
  784.     Gosub LABEL019
  785.     Color 8
  786.     Gosub LABEL019
  787.     Color 15
  788.     Print "                       "
  789.     AnsiPos 33, 11
  790.     Color 8
  791.     Gosub LABEL018
  792.     Color 7
  793.     Gosub LABEL018
  794.     Color 15
  795.     Gosub LABEL018
  796.     Color 7
  797.     Gosub LABEL018
  798.     Color 8
  799.     Gosub LABEL018
  800.     Color 15
  801.     Print "              "
  802.     Goto LABEL020
  803.     :LABEL018
  804.     Print "<┤EGiS CoRP'95"
  805.     Delay 2
  806.     Backup 14
  807.     Return
  808.     :LABEL019
  809.     Print "Code by Lone Runner/AGS"
  810.     Delay 2
  811.     Backup 23
  812.     Return
  813.     :LABEL020
  814.     AnsiPos 1, 1
  815.     End
  816.  
  817.     EndProc
  818.  
  819.  
  820. ;------------------------------------------------------------------------------
  821.  
  822.     Function FUNCTION002(String STRING013, Int INT042, Int INT043, Int INT044) Integer
  823.  
  824.     Int      INT045
  825.     Integer  INTEGER004
  826.  
  827.     INT045 = INT044
  828.     INT015 = INT042
  829.     Color 15
  830.     Cls
  831.     StartDisp 1
  832.     DispFile PPEPath() + STRING013, 1 + 4
  833.     PROC009(INT045)
  834.     While (1) Do
  835.         STRING002 = Inkey()
  836.         If (STRING002 <> "") Then
  837.             If (((STRING002 == "DOWN") || (STRING002 == "2")) || (STRING002 == "5")) Then
  838.                 PROC010(INT045)
  839.                 INT045 = INT045 + 1
  840.                 If (INT045 == INT043 + 1) INT045 = 1
  841.                 PROC009(INT045)
  842.                 Continue
  843.             Endif
  844.             If ((STRING002 == "UP") || (STRING002 == "8")) Then
  845.                 PROC010(INT045)
  846.                 INT045 = INT045 - 1
  847.                 If (INT045 == 0) INT045 = INT043
  848.                 PROC009(INT045)
  849.                 Continue
  850.             Endif
  851.             If (STRING002 == Chr(13)) Then
  852.                 FUNCTION002 = INT045
  853.                 Break
  854.                 Continue
  855.             Endif
  856.             If (STRING002 == Chr(27)) Then
  857.                 FUNCTION002 = 0
  858.                 Break
  859.             Endif
  860.         Endif
  861.     EndWhile
  862.  
  863.     EndFunc
  864.  
  865.  
  866. ;------------------------------------------------------------------------------
  867.  
  868.     Procedure PROC009(Integer INTEGER004)
  869.  
  870.     AnsiPos 22, INT015 + INTEGER004 - 1
  871.     STRING006 = ScrText(22, INT015 + INTEGER004 - 1, 36, 1)
  872.     Print "@X1F", ScrText(22, INT015 + INTEGER004 - 1, 36, 0)
  873.     PROC011()
  874.  
  875.     EndProc
  876.  
  877.  
  878. ;------------------------------------------------------------------------------
  879.  
  880.     Procedure PROC010(Integer INTEGER005)
  881.  
  882.     AnsiPos 22, INT015 + INTEGER005 - 1
  883.     Print "@X0F", STRING006
  884.     PROC011()
  885.  
  886.     EndProc
  887.  
  888.  
  889. ;------------------------------------------------------------------------------
  890.  
  891.     Procedure PROC011()
  892.  
  893.     AnsiPos 1, 22
  894.     Color 0
  895.     Print " "
  896.     Backup 1
  897.  
  898.     EndProc
  899.  
  900.  
  901. ;------------------------------------------------------------------------------
  902.  
  903.     Procedure PROC012()
  904.  
  905.     String   TSTRING014(2)
  906.     Boolean  TBOOLEAN007(1)
  907.  
  908.     While (Inkey() <> "") Do
  909.     EndWhile
  910.     TBOOLEAN007(0) = 0
  911.     TBOOLEAN007(1) = 0
  912.     For INT013 = 11 To 13
  913.         TSTRING014(INT013 - 11) = ScrText(1, INT013, 79, 1)
  914.     Next
  915.     If (INT010 == 2) Then
  916.         Print STRING007
  917.         AnsiPos 5, 11
  918.         Print "█▀ User ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  919.         AnsiPos 5, 12
  920.         Print "█  Press a key when ready !  █"
  921.         AnsiPos 5, 13
  922.         Print "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  923.         AnsiPos 45, 11
  924.         Print "█▀ Sysop ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  925.         AnsiPos 45, 12
  926.         Print "█  Press a key when ready !  █"
  927.         AnsiPos 45, 13
  928.         Print "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  929.     Else
  930.         Print STRING007
  931.         AnsiPos 25, 11
  932.         Print "█▀ User ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  933.         AnsiPos 25, 12
  934.         Print "█  Press a key when ready !  █"
  935.         AnsiPos 25, 13
  936.         Print "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  937.     Endif
  938.     While (1) Do
  939.         If ((((INT010 == 2) && TBOOLEAN007(0)) && TBOOLEAN007(1)) || ((INT010 == 1) && TBOOLEAN007(0))) Break
  940.         If (INT010 == 2) Then
  941.             STRING002 = KInkey()
  942.         Else
  943.             STRING002 = Inkey()
  944.         Endif
  945.         If ((STRING002 <> "") && !TBOOLEAN007(0)) Then
  946.             If (INT010 == 2) Then
  947.                 Print STRING007
  948.                 AnsiPos 45, 11
  949.                 Print "█▀ Sysop ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  950.                 AnsiPos 45, 12
  951.                 Print "█           READY!!          █"
  952.                 AnsiPos 45, 13
  953.                 Print "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  954.                 TBOOLEAN007(0) = 1
  955.                 Goto LABEL021
  956.             Endif
  957.             Print STRING007
  958.             AnsiPos 25, 11
  959.             Print "█▀ User ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  960.             AnsiPos 25, 12
  961.             Print "█           READY!!          █"
  962.             AnsiPos 25, 13
  963.             Print "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  964.             TBOOLEAN007(0) = 1
  965.         Endif
  966.         :LABEL021
  967.         If (INT010 == 2) Then
  968.             STRING002 = MInkey()
  969.             If ((STRING002 <> "") && !TBOOLEAN007(1)) Then
  970.                 Print STRING007
  971.                 AnsiPos 5, 11
  972.                 Print "█▀ User ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  973.                 AnsiPos 5, 12
  974.                 Print "█           READY!!          █"
  975.                 AnsiPos 5, 13
  976.                 Print "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  977.                 TBOOLEAN007(1) = 1
  978.             Endif
  979.         Endif
  980.     EndWhile
  981.     Delay 18
  982.     For INT013 = 11 To 13
  983.         AnsiPos 1, INT013
  984.         PrintLn TSTRING014(INT013 - 11)
  985.     Next
  986.     AnsiPos 1, 23
  987.     While (OutBytes() > 0) Do
  988.     EndWhile
  989.     Delay 18
  990.  
  991.     EndProc
  992.  
  993.  
  994. ;------------------------------------------------------------------------------
  995.  
  996.     Procedure PROC013(String STRING015)
  997.  
  998.     String   TSTRING016(2)
  999.  
  1000.     While (Inkey() <> "") Do
  1001.     EndWhile
  1002.     For INT013 = 11 To 13
  1003.         TSTRING016(INT013 - 11) = ScrText(1, INT013, 79, 1)
  1004.     Next
  1005.     Print STRING007
  1006.     AnsiPos 5, 11
  1007.     Print "█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  1008.     AnsiPos 5, 12
  1009.     Print "█                                                                    █"
  1010.     AnsiPos 5, 13
  1011.     Print "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  1012.     AnsiPos 40 - Len(STRING015) / 2, 12
  1013.     Print STRING015
  1014.     While (Inkey() == "") Do
  1015.     EndWhile
  1016.     For INT013 = 11 To 13
  1017.         AnsiPos 1, INT013
  1018.         PrintLn TSTRING016(INT013 - 11)
  1019.     Next
  1020.     While (OutBytes() > 0) Do
  1021.     EndWhile
  1022.  
  1023.     EndProc
  1024.  
  1025.  
  1026. ;------------------------------------------------------------------------------
  1027.  
  1028.     Procedure PROC014(Integer INTEGER006, Integer INTEGER007)
  1029.  
  1030.     Int      INT046
  1031.     Int      INT047
  1032.     Int      INT048
  1033.  
  1034.     TINTEGER001(INTEGER006) = TINTEGER001(INTEGER006) + INTEGER007
  1035.     INT048 = CurColor()
  1036.     INT046 = GetX()
  1037.     INT047 = GetY()
  1038.     If (INTEGER006 == 1) Then
  1039.         AnsiPos 1, 23
  1040.         Print STRING008 + String(TINTEGER001(INTEGER006))
  1041.     Else
  1042.         AnsiPos 79 - Len(String(TINTEGER001(INTEGER006))), 23
  1043.         Print STRING008 + String(TINTEGER001(INTEGER006))
  1044.     Endif
  1045.     AnsiPos INT046, INT047
  1046.     Color INT048
  1047.  
  1048.     EndProc
  1049.  
  1050.  
  1051. ;------------------------------------------------------------------------------
  1052.  
  1053.     Procedure PROC015(Int INT049, String STRING017, String STRING018, String STRING019, String STRING020, String STRING021, String STRING022, Boolean BOOLEAN008, String STRING023)
  1054.  
  1055.     Int      INT050
  1056.     String   STRING024
  1057.  
  1058.     STRING024 = "TMPBUL." + String(PcbNode())
  1059.     FOpen 1, PPEPath() + STRING017, 0, 0
  1060.     For INT013 = 1 To 10
  1061.         FGet 1, STRING003
  1062.         Tokenize STRING003
  1063.         For INT014 = 1 To 4
  1064.             STRING003 = GetToken()
  1065.         Next
  1066.         If (ToInteger(STRING003) < TINTEGER001(INT049)) Goto LABEL022
  1067.     Next
  1068.     FClose 1
  1069.     Goto LABEL027
  1070.     :LABEL022
  1071.     INT050 = INT013
  1072.     FClose 1
  1073.     FCreate 2, PPEPath() + STRING024, 1, 0
  1074.     FOpen 1, PPEPath() + STRING017, 0, 0
  1075.     For INT014 = 1 To 10
  1076.         If (INT014 == INT013) Then
  1077.             FPutLn 2, Mixed(Replace(Replace(STRING023, " ", Chr(255)), ";", ":")) + ";" + TSTRING001(INT016) + ";" + String(INT012) + ";" + String(TINTEGER001(INT049))
  1078.             Continue
  1079.         Endif
  1080.         FGet 1, STRING003
  1081.         FPutLn 2, STRING003
  1082.     Next
  1083.     FPutLn 2, "---"
  1084.     FPutLn 2, "WARNING: If you edit this file, don't forget to replace"
  1085.     FPutLn 2, "ALL SPACES WITH CHR(225)'s or the score feature will NOT WORK AT ALL!!"
  1086.     FCloseAll
  1087.     Delete PPEPath() + STRING017
  1088.     Rename PPEPath() + STRING024, PPEPath() + STRING017
  1089.     FOpen 1, PPEPath() + STRING017, 0, 0
  1090.     FCreate 2, PPEPath() + STRING024, 1, 0
  1091.     FOpen 3, PPEPath() + STRING018, 0, 0
  1092.     FOpen 4, PPEPath() + STRING019, 0, 0
  1093.     FGet 3, STRING003
  1094.     :LABEL023
  1095.     If (Ferr(3)) Goto LABEL024
  1096.     FPutLn 2, STRING003
  1097.     FGet 3, STRING003
  1098.     Goto LABEL023
  1099.     :LABEL024
  1100.     FPutLn 2
  1101.     For INT013 = 1 To 10
  1102.         FGet 1, STRING003
  1103.         Tokenize STRING003
  1104.         STRING003 = Space(5) + Mixed(GetToken())
  1105.         STRING003 = STRING003 + Space(37 - Len(STRING003)) + GetToken()
  1106.         STRING004 = GetToken()
  1107.         STRING003 = STRING003 + Space(58 - Len(STRING003)) + Space(3 - Len(STRING004)) + STRING004
  1108.         STRING004 = GetToken()
  1109.         STRING003 = STRING003 + Space(67 - Len(STRING003)) + Space(9 - Len(STRING004)) + STRING004
  1110.         FPutLn 2, STRING009 + STRING003
  1111.     Next
  1112.     FPutLn 2
  1113.     FGet 4, STRING003
  1114.     :LABEL025
  1115.     If (Ferr(4)) Goto LABEL026
  1116.     FPutLn 2, STRING003
  1117.     FGet 4, STRING003
  1118.     Goto LABEL025
  1119.     :LABEL026
  1120.     FCloseAll
  1121.     If (Exist(PPEPath() + STRING020)) Delete PPEPath() + STRING020
  1122.     Rename PPEPath() + STRING024, PPEPath() + STRING020
  1123.     Color 15
  1124.     Cls
  1125.     If (INT050 == 1) Then
  1126.         DispFile PPEPath() + STRING022, 0
  1127.     Else
  1128.         DispFile PPEPath() + STRING021, 0
  1129.     Endif
  1130.     Wait
  1131.     :LABEL027
  1132.     If (BOOLEAN008) Then
  1133.         Color 15
  1134.         Cls
  1135.         DispFile PPEPath() + STRING020, 0
  1136.         Wait
  1137.     Endif
  1138.  
  1139.     EndProc
  1140.  
  1141.  
  1142. ;------------------------------------------------------------------------------
  1143. ;
  1144. ; Usage report (before postprocessing)
  1145. ;
  1146. ; ■ Statements used :
  1147. ;
  1148. ;    3       End
  1149. ;    8       Cls
  1150. ;    3       Wait
  1151. ;    37      Color 
  1152. ;    252     Goto 
  1153. ;    251     Let 
  1154. ;    58      Print 
  1155. ;    5       PrintLn 
  1156. ;    153     If 
  1157. ;    7       DispFile 
  1158. ;    2       FCreate 
  1159. ;    6       FOpen 
  1160. ;    3       FClose 
  1161. ;    21      FGet 
  1162. ;    10      FPutLn 
  1163. ;    5       StartDisp 
  1164. ;    2       Delete 
  1165. ;    10      Gosub 
  1166. ;    2       Return
  1167. ;    9       Delay 
  1168. ;    7       Inc 
  1169. ;    5       Dec 
  1170. ;    3       Tokenize 
  1171. ;    50      AnsiPos 
  1172. ;    3       Backup 
  1173. ;    3       Sound 
  1174. ;    1       SPrint 
  1175. ;    2       SPrintLn 
  1176. ;    2       Rename 
  1177. ;    2       FCloseAll
  1178. ;    15      EndProc
  1179. ;    2       EndFunc
  1180. ;
  1181. ;
  1182. ; ■ Functions used :
  1183. ;
  1184. ;    1       -
  1185. ;    55      *
  1186. ;    22      /
  1187. ;    1       %
  1188. ;    171     +
  1189. ;    41      -
  1190. ;    82      ==
  1191. ;    14      <>
  1192. ;    42      <
  1193. ;    40      <=
  1194. ;    10      >
  1195. ;    78      >=
  1196. ;    135     !
  1197. ;    90      &&
  1198. ;    65      ||
  1199. ;    8       Len(
  1200. ;    4       Mid()
  1201. ;    2       Right()
  1202. ;    6       Space()
  1203. ;    2       Ferr()
  1204. ;    3       Chr()
  1205. ;    3       Asc()
  1206. ;    8       InStr()
  1207. ;    1       Trim()
  1208. ;    4       Random()
  1209. ;    2       Time()
  1210. ;    3       U_Name()
  1211. ;    2       Replace()
  1212. ;    6       Inkey()
  1213. ;    22      String()
  1214. ;    22      PPEPath()
  1215. ;    1       PcbNode()
  1216. ;    7       GetToken()
  1217. ;    1       MkAddr()
  1218. ;    1       Exist()
  1219. ;    5       S2I()
  1220. ;    2       GetX()
  1221. ;    2       GetY()
  1222. ;    4       And()
  1223. ;    2       CurColor()
  1224. ;    3       KInkey()
  1225. ;    3       MInkey()
  1226. ;    1       PeekDW()
  1227. ;    11      ScrText()
  1228. ;    1       ToInteger()
  1229. ;    3       ToReal()
  1230. ;    1       ToInt()
  1231. ;    2       ToTime()
  1232. ;    2       Mixed()
  1233. ;    2       OutBytes()
  1234. ;    2       PCBMac()
  1235. ;
  1236. ;------------------------------------------------------------------------------
  1237. ;
  1238. ; Analysis flags : p
  1239. ;
  1240. ; p - Peek in memory ■ 2
  1241. ;     Since a peek statement allows someone to read entire memory contents
  1242. ;     you may check this statement, however, this is usually not a risk
  1243. ;     ■ Search for : PEEK, PEEKW, PEEKDW
  1244. ;
  1245. ;------------------------------------------------------------------------------
  1246. ;
  1247. ; Postprocessing report
  1248. ;
  1249. ;    38      For/Next
  1250. ;    12      While/EndWhile
  1251. ;    61      If/Then or If/Then/Else
  1252. ;    2       Select Case
  1253. ;
  1254. ;------------------------------------------------------------------------------
  1255. ;                 AEGiS Corp - Break the routines, code against the machines!
  1256. ;------------------------------------------------------------------------------
  1257.